home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / CtrlF.ass < prev    next >
Encoding:
Text File  |  1980-11-16  |  491 b   |  38 lines
  1. # CtrlF()(BOOL)
  2.  
  3.     .sdreg    r2
  4.     .global    _CtrlF
  5.  
  6. _CtrlF:    mflr    r0
  7.     stw    r0,8(r1)
  8.     stwu    r1,-32(r1)
  9.  
  10.     li    r4,0
  11.     li    r5,0
  12.     lwz    r3,_PowerPCBase(r2)
  13.     lwz    r0,-478(r3)    # SetSignalPPC()
  14.     mtlr    r0
  15.     blrl
  16.  
  17.     andi.    r0,r3,32768    # btst    #15,d0
  18.     beq    .no
  19.  
  20.     li    r4,0
  21.     ori    r5,r4,32768
  22.     lwz    r3,_PowerPCBase(r2)
  23.     lwz    r0,-478(r3)    # SetSignalPPC()
  24.     mtlr    r0
  25.     blrl
  26.     
  27. .yes:    li    r3,-1
  28.     b    .finish
  29. .no:    li    r3,0
  30. .finish:    addi    r1,r1,32
  31.     lwz    r0,8(r1)
  32.     mtlr    r0
  33.     blr
  34.  
  35.     .type    _CtrlF,@function
  36.     .size    _CtrlF,$-_CtrlF
  37.     .extern    _PowerPCBase
  38.